unit AttributesU;

interface

uses
  System.Rtti;

Type
  Column = class(TCustomAttribute)
  private
    FField : String;
    FDimensione : Integer;
    FTipo : TRttiType;
    FRequired : Boolean;
  public
    constructor Create(const AField: string; AType: TRttiType; const ADimensione : Integer = -1; const ARequired : Boolean = FALSE);
    property Field: string read FField;
    property Dimensione : Integer read FDimensione;
    property Tipo : TRttiType read FTipo;
    property required : Boolean read FRequired;
  end;

implementation

{ Column }

constructor Column.Create(const AField: string; AType: TRttiType; const ADimensione : Integer = -1; const ARequired : Boolean = FALSE);
begin
  inherited create;
  FField := AField;
  FDimensione := ADimensione;
  FTipo := AType;
  FRequired := ARequired;
end;

end.
